#!/usr/bin/perl 
# blockwhile.pl
use warnings;
use strict;

while (my $line = <>) {
   last if $line =~/quit/;
   print "You entered: $line";
}
print "Bye! \n";